home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 January / Macworld (1997-01).dmg / QuarkImmedia™1.01 Demo / Power Macintosh Demo / QuarkXPress - Int'l English / QuarkXPress™ Demo / QuarkXPress™ 3.32r5 Demo / QuarkXPress™ 3.32r5 Demo.rsrc / PSHD_1007 < prev    next >
Text File  |  1996-11-01  |  5KB  |  153 lines
  1. userdict/epsdict 95 dict dup begin put
  2. /T true def
  3. /F false def
  4. /CT 0 def
  5. /K F def
  6. /K0 T def
  7. /K1 F def
  8. /K2 F def
  9. /op F def
  10. /sepf F def
  11. /h 0 def
  12. /i 0 def
  13. /j 0 def
  14. /k 0 def
  15. /s 0 def
  16. /I 0 def
  17. /J 0 def
  18. /f1 0 def
  19. /f2 0 def
  20. /f12 0 def
  21. /g0 0 def
  22. /g1 0 def
  23. /g2 0 def
  24. /g3 0 def
  25. /cc 0 def
  26. /ccls 0 def
  27. /ccn 0 def
  28. /ccpl 0 def
  29. /fctr 0 def
  30. /eprgb 0 def
  31. /x matrix def
  32. /A 128 array def
  33. /setpacking where dup{exch pop currentpacking exch true setpacking}if
  34. /B{bind def}bind def
  35. /X{exch def}B
  36. /p2{pop pop}B
  37. /p3{pop pop pop}B
  38. /p4{pop pop pop pop}B
  39. /xpdctsop[currentdict/begin load]cvx B
  40. /e/end load def
  41. /E{load e exec xpdctsop}B
  42. /E0{load e exec}B
  43. /stf systemdict/settransfer get def
  44. /ctf systemdict/currenttransfer get def
  45. /cctp{cvlit/f2 X cvlit/f1 X
  46.  /f12 f1 length f2 length add array def
  47.  f12 0 f1 putinterval f12 f1 length f2 putinterval f12 cvx}B
  48. /st1{/CT load cctp stf}B
  49. /stcp{ctf cctp stf}B
  50. /W{K1{dup 1 ne}{T}ifelse/K0 X 4 copy 4 copy eq 3 1 roll eq and 4 -2 roll eq and exch 0 eq and/K X pop}B
  51. /setoverprint{xpdctsop/op X e}B
  52. /P{op not K0 and currentgray 1 ne K or or K2 or}B
  53. /setcolortransfer{xpdctsop 4 1 roll p3/stf E0}B
  54. /setcolorscreen{xpdctsop 12 3 roll p3 p3 p3/setscreen E0}B
  55. /setseparationgray/setgray load def
  56. /setlvl{1. exch sub setseparationgray}B
  57. /setcmykcolor{xpdctsop W p4 1 setseparationgray e}B
  58. /setgray{K2{setseparationgray}{1. exch sub 0 0 0 4 -1 roll setcmykcolor}ifelse}B
  59. /setrgbcolor{
  60.  3{1 exch sub 3 1 roll}repeat
  61.  3 copy 2{2 copy gt{exch}if pop}repeat 
  62.  4 1 roll 3{3 index sub 3 1 roll}repeat
  63.  4 -1 roll setcmykcolor}B
  64. /setcmybcolor{setcmykcolor}B
  65. /findcmykcustomcolor{5 array astore readonly}B
  66. /setcustomcolor{
  67.  xpdctsop exch dup 4 get/ccn X F/sepf X F/K X T/K0 X
  68.  ccls{ccn eq{/sepf T def exit}if}forall
  69.  sepf{pop ccn ccpl eq{setlvl}{pop 0 setlvl}ifelse}
  70.  {aload p2 4{4 index mul 4 1 roll}repeat setcmykcolor pop}ifelse e
  71. }def
  72. /F0/sethsbcolor load def
  73. /sethsbcolor{xpdctsop F0 currentrgbcolor setrgbcolor e}B
  74. /F1/imagemask load def
  75. /imagemask{xpdctsop P{/F1 E0}{gsave nulldevice/F1 E0 grestore}ifelse}B
  76. /separationimage/image load def
  77. /F2/image load def
  78. /image{xpdctsop cc 1 eq K2 or{/F2 E0}{gsave{pop 1}st1/F2 E0 grestore}ifelse}B
  79. /customcolorimage{xpdctsop dup 4 get/ccn X F/sepf X
  80.  ccls{ccn eq{/sepf T def exit}if}forall
  81.  sepf{pop ccn ccpl eq{/F2 E0}{gsave{pop 1}st1/F2 E0 grestore}ifelse}
  82.  {gsave cc 5 ge cc 7 le and cc 1 eq or{cc 1 eq{3}{cc 5 sub}ifelse get/fctr X
  83.  {1 fctr 1 4 -1 roll sub mul sub}stcp}{pop{pop 1}st1}ifelse/F2 E0 grestore}ifelse
  84. }B
  85. /rgbmultpr{/g2 E/g1 E/g0 E
  86.  dup/s X k{/i 0 def{.11 mul 1 index i get .59 mul add
  87.  2 index i get .3 mul add round cvi
  88.  s i 3 -1 roll put/i i 1 add def}forall p2}{p3}ifelse s
  89. }B
  90. /cmymultpr{/g3 E/g2 E/g1 E/g0 E
  91.  cc 1 eq{4 1 roll p3}{4 5 cc sub roll p3}ifelse
  92. }B
  93. /snglpr{/g0 E
  94.  dup dup length eprgb{3}{4}ifelse idiv 0 exch getinterval/s X
  95.  h{/i 0 def/j 0 def s{pop eprgb{k{dup i 3 getinterval{}forall
  96.  .11 mul exch .59 mul add exch .3 mul add round cvi}{0}ifelse 3}
  97.  {dup i 4 getinterval cc 1 eq{3 get}{cc 5 sub get}ifelse 4}ifelse
  98.  i add/i X s j 3 -1 roll put/j j 1 add def}forall}if pop s
  99. }B
  100. /colorimage {
  101.  xpdctsop gsave 3 eq dup/eprgb X not{{1 exch sub}stcp}if
  102.  {eprgb{/g0 X/g1 X/g2 X/rgbmultpr load}
  103.  {/g0 X/g1 X/g2 X/g3 X/cmymultpr load}ifelse}
  104.  {/g0 X/snglpr load}ifelse 2 index 8 eq cc 1 eq 2 copy and/k X
  105.  cc 5 ge cc 7 le and or dup 3 1 roll and/h X eprgb not and
  106.  {F2}{image}ifelse grestore e
  107. }B
  108. /F3/fill load def
  109. /fill{xpdctsop P{F3}{newpath}ifelse e}B
  110. /F4/eofill load def
  111. /eofill{xpdctsop P{F4}{newpath}ifelse e}B
  112. /F5/stroke load def
  113. /stroke{xpdctsop P{F5}{newpath}ifelse e}B
  114. /F6/show load def
  115. /show{xpdctsop P{/F6 E0}{/stringwidth E0 rmoveto}ifelse}B
  116. /F7/ashow load def
  117. /ashow{xpdctsop P{/F7 E0}{gsave currentpoint x currentmatrix nulldevice
  118.  setmatrix moveto/F7 E0 currentpoint grestore moveto}ifelse}B
  119. /F8/widthshow load def
  120. /widthshow{xpdctsop P{/F8 E0}{gsave currentpoint x currentmatrix nulldevice
  121.  setmatrix moveto/F8 E0 currentpoint grestore moveto}ifelse}B
  122. /F9/awidthshow load def
  123. /awidthshow{xpdctsop P{/F9 E0}{gsave currentpoint x currentmatrix nulldevice
  124.  setmatrix moveto/F9 E0 currentpoint grestore moveto}ifelse}B
  125. /F10/kshow load def
  126. /kshow{xpdctsop P{/F10 E0}{gsave currentpoint x currentmatrix nulldevice
  127.  setmatrix moveto/F10 E0 currentpoint grestore moveto}ifelse}B
  128. /F11/gsave load def
  129. /gsave{xpdctsop K2 not{A I K put A I 1 add K0 put/I I 2 add def}if F11 e}B
  130. /F12/grestore load def
  131. /grestore{xpdctsop F12 K2 not{I J gt{/I I 2 sub def}if A I get/K X A I 1 add get/K0 X}if e}B
  132. /F13/grestoreall load def
  133. /grestoreall{xpdctsop F13 K2 not{/I J def A I get/K X A I 1 add get/K0 X}if e}B
  134. /F14/save load def
  135. /save{xpdctsop F14 K2 not{/J I def A I K put A I 1 add K0 put/I I 2 add def}if e}B
  136. /epsetup{
  137.  /cc X/ccls X/ccpl X A 0 F put A 1 T put ctf/CT X
  138.  cc 1 eq{/setcmykcolor{xpdctsop W setlvl p3 e}B
  139.  /setcolortransfer{xpdctsop 4 1 roll p3/stf E0}B
  140.  /setcolorscreen{xpdctsop 12 3 roll p3 p3 p3/setscreen E0}B}if
  141.  cc 5 eq{/setcmykcolor{xpdctsop W p3 setlvl e}B
  142.  /setcolortransfer{xpdctsop p3/stf E0}B
  143.  /setcolorscreen{xpdctsop p3 p3 p3/setscreen E0}B}if
  144.  cc 6 eq{/setcmykcolor{xpdctsop W p2 setlvl pop e}B
  145.  /setcolortransfer{xpdctsop 4 -1 roll p3/stf E0}B
  146.  /setcolorscreen{xpdctsop 12 -3 roll p3 p3 p3/setscreen E0}B}if
  147.  cc 7 eq{/setcmykcolor{xpdctsop W pop setlvl p2 e}B
  148.  /setcolortransfer{xpdctsop 4 -2 roll p3/stf E0}B
  149.  /setcolorscreen{xpdctsop 12 -6 roll p3 p3 p3/setscreen E0}B}if
  150. }def
  151. {setpacking}if
  152. end
  153.